Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    With ListBox1
        'M涵تw
        .AddItem "Excel"
        .AddItem "Word"
        .AddItem "Access"
        .AddItem "PowerPoint"
    End With
End Sub

Private Sub CommandButton1_Click()
    With ListBox1
        If .ListIndex = -1 Then
            MsgBox "Sܶ"
        Else
            MsgBox .Value
        End If
    End With
End Sub
